home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Applications / P4⁄Mac 2.0d4 / Test programs / prompt.p < prev   
Encoding:
Text File  |  1996-09-28  |  161 b   |  12 lines  |  [TEXT/Rich]
  1. program prompt(input, output);
  2.  
  3. var
  4.     num: integer;
  5.     
  6. begin
  7.     writeln('Hello!');
  8.     write('Type a number: ');
  9.     read(num);
  10.     writeln('Its square is: ', num*num);
  11. end.
  12.